#!/usr/bin/perl

$SMSfile = "C:\\DOCUME~1\\Administrator\\workspace\\smsindex\\data\\SMS_hindiFAQ";#YahooQueryFile";#SMSqueryFile";

open(SMSFile, $SMSfile)||die("cant open the sms file");

@smslist = <SMSFile>;
close(SMSFile);

$sms = "@smslist";
#print $sms;
@tokens = split(" ",$sms);

print $#tokens/$#smslist;